home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 1992 August / info-mac-1992.iso / Language (lang) / Lazy-Scheme / Divers / Fib-init < prev    next >
Text File  |  1992-03-05  |  755b  |  20 lines
  1. {How to load compiled code for fib: Heavy… but it works !!}
  2. {For pathes to be OK, lauch help from its directory, do not modify any names…}
  3.  
  4. (begin
  5.     (define (fib n)) ;on cree une fermeture
  6.     (define xref (force (cell 'fib <? 2 1 + fib 1- - ƒ))) ; on cree un vecteur de references externes sans forwarders
  7.     (define e (getext xref "Fib" ":Divers:foreign")) ;on charge le code
  8.     (coerce fib (type '(a b))) ;on coerce pour pouvoir faire des rplaca (laid)
  9.     (car=! fib e) ;passage du thunk charge
  10.     (cdr=! fib ()) ; de l'environnement
  11.     fib
  12.     (masgc) ;on nettoie
  13.     (coerce fib 12) ;on remet le type fermeture
  14.     (setstrict fib %1) ; on rend fib strict
  15. )
  16.  
  17. (chrono (fib 20)) ; le test sur II Ci... :-) joie
  18. { = [10946  1.150000000000000000e+0  0.000000000000000000e+0] }
  19.  
  20.